How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/SHARED.DIR/01973_Script_CrossTheatre

Text File | 1995-09-13 | 9KB | 339 lines

global gWhichMovieNo,gTheHelpIsOn

on ECrossTheatre
  globalKill
  TurnOffPuppets
  sound playFile 4, "SMOVIE.AIF"
  go movie "ETheatre"
  abort
end

on VCrossTheatre
  globalKill
  TurnOffPuppets
  sound playFile 4, "SMOVIE.AIF"
  go movie "VTheatre"
  abort
end

on ACrossTheatre
  globalKill
  TurnOffPuppets
  sound playFile 4, "SMOVIE.AIF"
  go movie "ATheatre"
  abort
end


on MovieBoxRollover1  whichcrosshandler, whichsound
  set Whichcast = the castnum of sprite 23
  if rollover(23) then
    if gTheHelpIsOn = 1 then
      puppetsound whichsound
      updatestage
    end if
    repeat while rollover(23)
      if rollover(24) then
        repeat while rollover(24)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 1
          updatestage
          if (the mouseDown) then
            set gWhichMovieNo = 1
            do whichcrosshandler
            exit repeat
            abort
          end if
        end repeat
      else
        puppetsprite 23, false
      end if
    end repeat
    puppetsound 0
  end if
  set the castnum of sprite 23 = Whichcast
  updatestage
end


on MovieBoxRollover2  WhichCrossHandler, whichsound
  set Whichcast = the castnum of sprite 23
  if rollover(23) then
    if gTheHelpIsOn = 1 then
      puppetsound whichsound
      updatestage
    end if
    repeat while rollover(23)
      if rollover(24) then
        repeat while rollover(24)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 1
          updatestage
          if (the mouseDown) then
            set gWhichMovieNo = 1
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      else
        if rollover(25) then
          repeat while rollover(25)
            puppetsprite 23, true
            projectorCursor
            set the castnum of sprite 23 = WhichCast + 2
            updatestage
            if (the mouseDown) then
              set gWhichMovieNo = 2
              do WhichCrossHandler
              exit repeat
              abort
            end if
          end repeat
        else
          puppetsprite 23, false
        end if
      end if
    end repeat
    puppetsound 0
  end if
  set the castnum of sprite 23 =  Whichcast
  updatestage
end

on MovieBoxRollover3 WhichCrossHandler, whichsound
  set Whichcast = the castnum of sprite 23
  if rollover(23) then
    if gTheHelpIsOn = 1 then
      puppetsound whichsound
      updatestage
    end if
    repeat while rollover(23)
      if rollover(24) then
        repeat while rollover(24)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 1
          set gWhichMovieNo = 1
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(25) then
        repeat while rollover(25)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 2
          set gWhichMovieNo = 2
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(26) then
        repeat while rollover(26)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 3
          set gWhichMovieNo = 3
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      else
        puppetsprite 23, false
        updatestage
      end if
    end repeat
    puppetsound 0
  end if
  set the castnum of sprite 23 =  Whichcast
  updatestage
end

on MovieBoxRollover4 WhichCrossHandler, whichsound
  set Whichcast = the castnum of sprite 23
  if rollover(23) then
    if gTheHelpIsOn = 1 then
      puppetsound whichsound
      updatestage
    end if
    repeat while rollover(23)
      if rollover(24) then
        repeat while rollover(24)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 1
          set gWhichMovieNo = 1
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(25) then
        repeat while rollover(25)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 2
          set gWhichMovieNo = 2
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(26) then
        repeat while rollover(26)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 3
          set gWhichMovieNo = 3
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(27) then
        repeat while rollover(27)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 4
          set gWhichMovieNo = 4
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            exit repeat
            abort
          end if
        end repeat
      else
        puppetsprite 23, false
        updatestage
      end if
    end repeat
    puppetsound 0
  end if
  set the castnum of sprite 23 =  Whichcast
  updatestage
end

on MovieBoxRollover5  WhichCrossHandler, whichsound
  set Whichcast = the castnum of sprite 23
  if rollover(23) then
    if gTheHelpIsOn = 1 then
      puppetsound whichsound
      updatestage
    end if
    repeat while rollover(23)
      if rollover(24) then
        repeat while rollover(24)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 1
          set gWhichMovieNo = 1
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            return true
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(25) then
        repeat while rollover(25)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 2
          set gWhichMovieNo = 2
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            return true
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(26) then
        repeat while rollover(26)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 3
          set gWhichMovieNo = 3
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            return true
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(27) then
        repeat while rollover(27)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 4
          set gWhichMovieNo = 4
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            return true
            exit repeat
            abort
          end if
        end repeat
      end if
      if rollover(28) then
        repeat while rollover(28)
          puppetsprite 23, true
          projectorCursor
          set the castnum of sprite 23 = WhichCast + 5
          set gWhichMovieNo = 5
          updatestage
          if (the mouseDown) then
            do WhichCrossHandler
            return true
            exit repeat
            abort
          end if
        end repeat
      else
        set the castnum of sprite 23 =  Whichcast
        puppetsprite 23, false
        updatestage
        return false
      end if
    end repeat
    puppetsound 0
  end if
  set the castnum of sprite 23 =  Whichcast
  puppetsprite 23, false
  updatestage
  return false
end